home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i18.d64 / elvis.sda / ELVIS MAIN (.txt) next >
Commodore BASIC  |  2007-02-04  |  1KB  |  53 lines
  1. 5 PRINT"[147] SID/POKE WRITTEN BY:  TODD BRANDYS"
  2. 10 PRINT" BASED PARTIALLY ON SIDPLAYER BY"
  3. 15 PRINT" CRAIG CHAIMBERLAIN":PRINT
  4. 20 PRINT" THIS PROGRAM PLAYS THE MUSIC FOR:"
  5. 25 PRINT" A TRIBUTE TO ELVIS[154]"
  6. 30 PRINT:PRINT" LOADING POKE FILE..........."
  7. 35 GOTO40000
  8. 1000 DIMA$(720):DIMB$(720)
  9. 1005 OPEN1,8,2,"ELVIS.POK,S,R"
  10. 1006 INPUT#1,C1$
  11. 1010 FORR=0TO719
  12. 1015 INPUT#1,A$(R)
  13. 1020 INPUT#1,B$(R)
  14. 1025 NEXTR
  15. 1026 CLOSE1
  16. 1045 POKE53280,VAL(C1$):POKE53281,VAL(C1$)
  17. 1046 PRINT"[147]"
  18. 1050 FORR=0TO719
  19. 1055 POKE1024+R,VAL(A$(R)):POKE55296+R,VAL(B$(R))
  20. 1060 NEXTR
  21. 1065 RETURN
  22. 40000 DN=8:SA=780:SX=781:SY=782:SP=783
  23. 40001 GOSUB1000
  24. 40003 PRINT"[158] [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][159]":PRINT"[145]"
  25. 40005 GOSUB57000
  26. 40010 F$="ELVIS":LA=PEEK(49)+256*PEEK(50)+1000:GOSUB57500
  27. 40015 SYSHK
  28. 40020 POKESX,LO:POKESY,HI:SYS PL
  29. 40025 K=PEEK(SX)+256*PEEK(SY)
  30. 40029 PRINTTAB(4);
  31. 40030 IFPEEK(K)THENPRINTCHR$(PEEK(K));:K=K+1:GOTO40029
  32. 40035 POKE SS,7
  33. 40040 IFPEEK(SS)AND 7 GOTO40040
  34. 40045 SYS DP
  35. 40050 END
  36. 40055 REM
  37. 40060 REM
  38. 40065 REM
  39. 57000 POKESA,1:POKESX,DN:POKESY,1:SYS65466:F$="ELVIS.OBJ":GOSUB59000
  40. 57010 POKESA,0:SYS65493:IFPEEK(SP)AND1GOTO59100
  41. 57020 SS=49152:HK=49435:PL=49458:DP=49629:RETURN
  42. 57100 GOSUB57000:POKESX,LA-256*INT(LA/256):POKE SY,INT(LA/256):SYS 51042
  43. 57110 LA=LA+1398:RETURN
  44. 57500 POKE SA,1:POKE SX,DN:POKE SY,0:SYS 65466:F$=F$+".MUS":GOSUB 59000
  45. 57510 HI=INT(LA/256):LO=LA-256*HI
  46. 57520 POKE SA,0:POKE SX,LO:POKESY,HI:SYS 65493:IF PEEK(SP)AND1 GOTO 59100
  47. 57530 LA=PEEK(SX)+256*PEEK(SY):RETURN
  48. 59000 FORK=1TOLEN(F$):POKE 584+K,ASC(MID$(F$,K)):NEXT
  49. 59010 POKE SA,LEN(F$):POKE SX,73:POKE SY,2:SYS 65469:RETURN
  50. 59100 P=PEEK(SA):PRINT"ERROR:  ";:IFP=4THENPRINT"FILE NOT FOUND":END
  51. 59110 IFP=5 THEN PRINT"DEVICE NOT PRESENT":END
  52. 59120 PRINTST:END
  53.